home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / usefull / abook-install / arexx / import / import_dfa.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-02-18  |  2.6 KB  |  129 lines
  1. /*
  2. **  $VER: import_dfa.rexx 1.00 (18.02.96)
  3. **
  4. **  © 1994 Jörg Krause
  5. **
  6. **  PROGRAMNAME:
  7. **      import_dfa.rexx
  8. **
  9. **  FUNCTION:
  10. **      import all addresses from DFA to Address-Book
  11. **
  12. **  $HISTORY:
  13. **
  14. **   18.02.96 : 1.00 : initial release
  15. */
  16.  
  17. options results
  18.  
  19. if ~SHOW('P', 'DFA') then
  20. do
  21.     say 'Couldn't find Port DFA'
  22.     exit 10
  23. end
  24.  
  25. if ~SHOW('P', 'ABOOK_SERVER') then
  26. do
  27.     say 'Couldn't find Port ABOOK_SERVER'
  28.     exit 10
  29. end
  30.  
  31. do
  32.     address 'DFA'
  33.  
  34.     CHANGEGROUPS ALL
  35.  
  36.     FIRST STEM ADR.
  37.  
  38.     do while RC=0
  39.  
  40.         ADDR.TITLE    = ADR.ADDRESS.0
  41.         ADDR.LAST     = ADR.ADDRESS.2
  42.         ADDR.FIRST    = ADR.ADDRESS.1
  43.         ADDR.BIRTH    = ADR.ADDRESS.9
  44.  
  45.         ADDR.ADDRESSES.COUNT     = 1
  46.         ADDR.ADDRESSES.1.ADDRESS = "empty"
  47.         ADDR.ADDRESSES.1.STREET  = ADR.ADDRESS.4
  48.         ADDR.ADDRESSES.1.PC      = ADR.ADDRESS.5
  49.         ADDR.ADDRESSES.1.TOWN    = ADR.ADDRESS.6
  50.         ADDR.ADDRESSES.1.COUNTRY = ADR.ADDRESS.8
  51.         ADDR.ADDRESSES.1.STATE   = ADR.ADDRESS.7
  52.         ADDR.ADDRESSES.1.FAX     = ADR.ADDRESS.11
  53.  
  54.         ADDR.ADDRESSES.1.PHONE.COUNT = 1
  55.  
  56.         ADDR.ADDRESSES.1.PHONE.1.NUM = ADR.ADDRESS.10
  57.         ADDR.ADDRESSES.1.PHONE.1.DES = ""
  58.  
  59.         ADDR.EMAIL.COUNT   = 3
  60.         ADDR.EMAIL.1.ADR   = ADR.ADDRESS.12
  61.         ADDR.EMAIL.1.DES   = ""
  62.         ADDR.EMAIL.2.ADR   = ADR.ADDRESS.13
  63.         ADDR.EMAIL.2.DES   = ""
  64.         ADDR.EMAIL.3.ADR   = ADR.ADDRESS.14
  65.         ADDR.EMAIL.3.DES   = ""
  66.  
  67.         ADDR.COMMENT.COUNT = 1
  68.         ADDR.COMMENT.1     = ADR.ADDRESS.15
  69.  
  70.         /* Set the group membership */
  71.  
  72.         if ADR.ADDRESS.16=1 then
  73.           ADDR.GROUP.1 = "TRUE"
  74.         else
  75.           ADDR.GROUP.1 = "FALSE"
  76.  
  77.         if ADR.ADDRESS.17=1 then
  78.           ADDR.GROUP.2 = "TRUE"
  79.         else
  80.           ADDR.GROUP.2 = "FALSE"
  81.  
  82.         if ADR.ADDRESS.18=1 then
  83.           ADDR.GROUP.3 = "TRUE"
  84.         else
  85.           ADDR.GROUP.3 = "FALSE"
  86.  
  87.         if ADR.ADDRESS.19=1 then
  88.           ADDR.GROUP.4 = "TRUE"
  89.         else
  90.           ADDR.GROUP.4 = "FALSE"
  91.  
  92.         if ADR.ADDRESS.20=1 then
  93.           ADDR.GROUP.5 = "TRUE"
  94.         else
  95.           ADDR.GROUP.5 = "FALSE"
  96.  
  97.         if ADR.ADDRESS.21=1 then
  98.           ADDR.GROUP.6 = "TRUE"
  99.         else
  100.           ADDR.GROUP.6 = "FALSE"
  101.  
  102.         if ADR.ADDRESS.22=1 then
  103.           ADDR.GROUP.7 = "TRUE"
  104.         else
  105.           ADDR.GROUP.7 = "FALSE"
  106.  
  107.         if ADR.ADDRESS.23=1 then
  108.           ADDR.GROUP.8 = "TRUE"
  109.         else
  110.           ADDR.GROUP.8 = "FALSE"
  111.  
  112.         ADDRESS 'ABOOK_SERVER'
  113.  
  114.         'ADD STEM=ADDR.'
  115.  
  116.         ADDRESS 'DFA'
  117.  
  118.         NEXT STEM ADR.
  119.  
  120.     end
  121.  
  122. end
  123.  
  124. ADDRESS 'ABOOK_SERVER'
  125.  
  126. 'SAVE'
  127.  
  128. exit
  129.